home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / budget.arc / PVTAX.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-26  |  640 b   |  31 lines
  1. 10  CLS
  2. 20  KEY OFF
  3. 30  DEFDBL A-Z:DEFINT N,J
  4. 40  PRINT "PRESENT VALUE OF AN INTEREST TAX DEDUCTION"
  5. 50  PRINT
  6. 60  PRINT "WHAT IS THE TAX RATE (%) ";
  7. 70  INPUT T
  8. 80  T=T/100
  9. 90  PRINT " ENTER INTEREST RATE (%) ";
  10. 100  INPUT K
  11. 110  K=K/100
  12. 120  PRINT "   NUMBER OF PERIODS     ";
  13. 130  INPUT N
  14. 140  P=0
  15. 150  PRINT "     INTEREST AMOUNT IN DOLLARS"
  16. 160  FOR J=1 TO N
  17. 170  PRINT USING SPACE$(12)+"FOR PERIOD ##"; J;
  18. 180  INPUT Z
  19. 190  P=P+Z*T/(1+K)^J
  20. 200  NEXT J
  21. 210  PRINT
  22. 220  PRINT "PRESENT VALUE OF DEDUCTION =";
  23. 230  PRINT USING "$$#,###,###.##"; P
  24. 240  PRINT
  25. 250  PRINT "WOULD YOU LIKE TO RE-RUN THIS PROGRAM";
  26. 260  PRINT " WITH NEW DATA (Y/N)?"
  27. 270  Z$=INKEY$:IF Z$="" THEN 270
  28. 280  IF Z$="Y" OR Z$="y" THEN 50
  29. 290  IF Z$<>"N" AND Z$<>"n" THEN 250
  30. 300  END
  31.